home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / SQ2PRG.TXT < prev    next >
Text File  |  2019-04-13  |  2KB  |  59 lines
  1. This file contains a short program that you can type in and use to read
  2. sequential files. Following the listing are directions on using the program to
  3. convert
  4. sequential program files to tokenized program files.
  5. ===============================================================================
  6. 5100
  7. open15,8,15:open2,8,2,"0:FILENAME,s,r":gosub5140:printchr$(14)
  8. 5110 get#2,a$:printa$;:ifst<>0then5160
  9. 5120 ifasc(a$)<>13then5110
  10. 5125
  11. getc$:ifc$=""then5110
  12. 5130 close2:gosub5140:close15:end
  13. 5140 input#15,a,b$,c,d:ifa<20thenreturn
  14. 5150 print:print"<RVS>"a,b$,c,d:goto5130
  15. 5160
  16. ifst=64thenprint:print"<RVS> END OF FILE":goto5130
  17. 5170 print:print"<RVS>STATUS ERROR "st:goto5130
  18.  
  19.     (  <RVS>= CNTRL REVERSE ON )
  20.  (Don't forget the
  21. semi-colon in line 5110)
  22. ===============================================================================
  23.       Let's call the program SQ2PRG, since it is
  24. basically designed to help
  25. convert sequential text files to program files; and we will assume that the
  26. sequential program file that you wnat to convert is
  27. called SEQFILE.
  28.      List line 5100 and change FILENAME to SEQFILE.
  29.      Each time you wish to read SEQFILE type GOT    100 and hit <return>.
  30.      It is a good
  31. idea to read SEQFILE from beginning to end to make sure that
  32. none of the program lines of SEQFILE have the same line numbers as SQ2PRG. If
  33. they do, then you
  34. will have to renumber SQ2PRG to different line numbers. (Be
  35. careful that the GOTO's, etc. are changed accordingly.)
  36.      Now you are ready to convert SEQFILE
  37. to a program file.
  38.      (1) Type GOTO 5100 and press <return>. Each time you do this SQ2PRG will
  39. display the file from the beginning. When the first line o    SEQFILE scrolls up
  40. to about the top third of the screen hit any key to stop the read. SQ2PRG will
  41. finish displaying the line it is currently reading and stop.
  42.  
  43.     (2) Cursor up to the first line of the program and hit <return> over that
  44. line and each line that has been displayed. These lines now co-exist as
  45. program
  46. lines with SQ2PRG.
  47.      (3) Type GOTO 5100 and press <return>. Wait until the next section of the
  48. program is displayed, stop the program, and hit
  49. return over each of those
  50. lines. Do this for e    h section of SEQFILE until all the lines have been
  51. entered.
  52.      (4) When you have finished you will want to
  53. delete the lines in which
  54. SQ2PRG exists before you save your converted program to disk.
  55.  
  56.  
  57.  
  58.  
  59.